home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / percnt.zip / CTLDLLIM.PAS < prev    next >
Pascal/Delphi Source File  |  1991-11-09  |  2KB  |  41 lines
  1. unit CtlDLLImport;
  2.   Interface
  3.     Uses WinTypes;
  4.  
  5. {$I CtrlComm.Inc}
  6.  
  7.   const
  8.     pcm_ResetPercent = wm_User + 1;    { Message to cause control to reset % to 0 }
  9.     pcm_AddPercent   = wm_User + 2;    { Message to cause control to add x % }
  10.     pcm_GetPercent   = wm_User + 3;    { Message to cause control to return its current setting }
  11.     pcm_SetPercent   = wm_User + 4;    { Message to cause control to set itself to x% }
  12.                     { Control Style Dialog box identifiers }
  13.     PctMask:  longint = $FFFFFFF8;
  14.  
  15.   procedure CenterPopup(HWindow, HParent:  HWnd);
  16.  
  17.   function PercentCtrlStyle(HWindow  :  HWnd;
  18.                             CtrlStyle:  THandle;
  19.                             StrToID  ,
  20.                             IDToStr  :  pointer
  21.                            ):  LongBool;
  22.   function PercentCtrlFlags(Style :  longint;
  23.                             Txt   :  PChar;
  24.                             MaxStr:  word
  25.                            ):  word;
  26.   function PercentCtrlInfo:  THandle;
  27.   function PercentCtrlWndFn(HWindow:  HWnd;
  28.                             Message,
  29.                             wParam :  word;
  30.                             lParam :  longint
  31.                            ):  longint;
  32.  
  33. Implementation
  34.  
  35.   procedure CenterPopup;        external 'CtrlDLL';
  36.   function  PercentCtrlStyle;    external 'CtrlDLL';
  37.   function  PercentCtrlFlags;    external 'CtrlDLL';
  38.   function  PercentCtrlInfo;    external 'CtrlDLL';
  39.   function  PercentCtrlWndFn;    external 'CtrlDLL';
  40.  
  41.   end.